home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / clabel.frm < prev    next >
Text File  |  1995-05-22  |  5KB  |  165 lines
  1. VERSION 2.00
  2. Begin Form frmLabel 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Label Demo"
  6.    ClientHeight    =   2115
  7.    ClientLeft      =   1095
  8.    ClientTop       =   2295
  9.    ClientWidth     =   6555
  10.    ClipControls    =   0   'False
  11.    Height          =   2520
  12.    Icon            =   0
  13.    Left            =   1035
  14.    LinkTopic       =   "Form2"
  15.    ScaleHeight     =   2115
  16.    ScaleWidth      =   6555
  17.    Top             =   1950
  18.    Width           =   6675
  19.    Begin CUACommand cmdOK 
  20.       Caption         =   "OK"
  21.       Default         =   -1  'True
  22.       Height          =   345
  23.       Left            =   5160
  24.       StandardButton  =   1  'OK
  25.       TabIndex        =   7
  26.       Top             =   105
  27.       Width           =   1260
  28.    End
  29.    Begin CUALabel lbl 
  30.       Caption         =   "In addition, it passes messages about drag/drop to the owning container to ease drag and drop programming."
  31.       FontBold        =   0   'False
  32.       FontItalic      =   0   'False
  33.       FontName        =   "MS Sans Serif"
  34.       FontSize        =   8.25
  35.       FontStrikethru  =   0   'False
  36.       FontUnderline   =   0   'False
  37.       ForeColor       =   &H00000080&
  38.       Height          =   420
  39.       Index           =   7
  40.       Left            =   225
  41.       TabIndex        =   8
  42.       Top             =   675
  43.       Width           =   4740
  44.    End
  45.    Begin CUALabel lbl 
  46.       Caption         =   "CUALabel is fully compatible with the standard label, and has the option of showing text in 3D."
  47.       FontBold        =   0   'False
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   8.25
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       ForeColor       =   &H00000080&
  54.       Height          =   615
  55.       Index           =   6
  56.       Left            =   225
  57.       TabIndex        =   6
  58.       Top             =   75
  59.       Width           =   4740
  60.    End
  61.    Begin CUALabel lbl 
  62.       Alignment       =   2  'Center
  63.       BackStyle       =   1  'Opaque
  64.       BorderStyle     =   8  'Raised single
  65.       Caption         =   "Raised"
  66.       FontBold        =   0   'False
  67.       FontItalic      =   0   'False
  68.       FontName        =   "MS Sans Serif"
  69.       FontSize        =   8.25
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   225
  73.       Index           =   5
  74.       Left            =   2610
  75.       Pattern         =   2  '25% shadow
  76.       TabIndex        =   5
  77.       Top             =   1770
  78.       Width           =   750
  79.    End
  80.    Begin CUALabel lbl 
  81.       Alignment       =   2  'Center
  82.       BackStyle       =   1  'Opaque
  83.       BorderStyle     =   7  'Inset single
  84.       Caption         =   "Inset"
  85.       FontBold        =   0   'False
  86.       FontItalic      =   0   'False
  87.       FontName        =   "MS Sans Serif"
  88.       FontSize        =   8.25
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       Height          =   225
  92.       Index           =   4
  93.       Left            =   2610
  94.       Pattern         =   2  '25% shadow
  95.       TabIndex        =   4
  96.       Top             =   1470
  97.       Width           =   750
  98.    End
  99.    Begin CUALabel lbl 
  100.       Alignment       =   2  'Center
  101.       BackStyle       =   1  'Opaque
  102.       BorderStyle     =   1  'Fixed Single
  103.       Caption         =   "Normal"
  104.       FontBold        =   0   'False
  105.       FontItalic      =   0   'False
  106.       FontName        =   "MS Sans Serif"
  107.       FontSize        =   8.25
  108.       FontStrikethru  =   0   'False
  109.       FontUnderline   =   0   'False
  110.       Height          =   240
  111.       Index           =   3
  112.       Left            =   2610
  113.       Pattern         =   2  '25% shadow
  114.       TabIndex        =   3
  115.       Top             =   1170
  116.       Width           =   750
  117.    End
  118.    Begin CUALabel lbl 
  119.       Caption         =   "CUALabel"
  120.       Font3D          =   2  'Raised
  121.       Height          =   195
  122.       Index           =   2
  123.       Left            =   1500
  124.       TabIndex        =   2
  125.       Top             =   1770
  126.       Width           =   855
  127.    End
  128.    Begin CUALabel lbl 
  129.       Caption         =   "CUALabel"
  130.       Font3D          =   1  'Inset
  131.       Height          =   195
  132.       Index           =   1
  133.       Left            =   1500
  134.       TabIndex        =   1
  135.       Top             =   1470
  136.       Width           =   855
  137.    End
  138.    Begin CUALabel lbl 
  139.       Caption         =   "CUALabel"
  140.       Height          =   195
  141.       Index           =   0
  142.       Left            =   1500
  143.       TabIndex        =   0
  144.       Top             =   1170
  145.       Width           =   855
  146.    End
  147.    Begin Image Image1 
  148.       Height          =   315
  149.       Left            =   990
  150.       Picture         =   CLABEL.FRX:0000
  151.       Top             =   1125
  152.       Width           =   360
  153.    End
  154. End
  155. Option Explicit
  156.  
  157. Sub cmdOK_Click ()
  158.    Unload Me
  159. End Sub
  160.  
  161. Sub lbl_Click (Index As Integer)
  162.    Image1.Top = lbl(Index).Top - 50
  163. End Sub
  164.  
  165.